home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / pause.dia.ref < prev    next >
Text File  |  1999-09-16  |  1KB  |  65 lines
  1.  
  2. a=1;
  3.  
  4. deff('[x]=tata(y)','x=-y,write(%io(2),''enter quit''),pause,x=+20')
  5.  
  6. xx=tata(10);
  7. enter quit
  8.  
  9. quit;
  10.  
  11. if 10+xx<>0 then bugmes();quit;end
  12.  
  13. b=2;
  14.  
  15. deff('[x]=tata(y)',['x=-y'
  16.                  'write(6,''enter return'')'
  17.                  'pause'
  18.                  'x=+20'])
  19. Warning :redefining function: tata                    
  20.  
  21.  
  22. xx=tata(0);
  23. enter return
  24.  
  25. return
  26.  
  27. if 20-xx<>0 then bugmes();quit;end
  28.  
  29. deff('[x]=tata(y)','x=-y,write(6,''type x=resume(0)''),pause')
  30. Warning :redefining function: tata                    
  31.  
  32.  
  33. xx=tata(40);
  34. type x=resume(0)
  35.  
  36. x=resume(0)
  37.  
  38. if xx<>0 then bugmes();quit;end
  39.  
  40. clear x
  41.  
  42. text=['after quit '
  43.       'undefined variable x']
  44.  text  =
  45.  
  46. !after quit            !
  47. !                      !
  48. !undefined variable x  !
  49.  
  50. deff('[x]=toto(n)',['v=100'
  51.                     'write(%io(2),text)'
  52.                     'pause'
  53.                      'x=n'])
  54.  
  55. write(%io(2),'enter abort (after receiving this message:)')
  56. enter abort (after receiving this message:)
  57.  
  58. toto(0);
  59. after quit 
  60. undefined variable x
  61.  
  62. abort
  63.  
  64.  
  65.